home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lib-src / b2m.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-09-12  |  1.9 KB  |  103 lines
  1. /*
  2.  * b2m - a filter for Babyl -> Unix mail files
  3.  *
  4.  * usage:    b2m < babyl > mailbox
  5.  *
  6.  * I find this useful whenever I have to use a
  7.  * system which - shock horror! - doesn't run
  8.  * Gnu emacs. At least now I can read all my
  9.  * Gnumacs Babyl format mail files!
  10.  *
  11.  * it's not much but it's free!
  12.  *
  13.  *   Ed Wilkinson
  14.  *   E.Wilkinson@massey.ac.nz
  15.  *   Mon Nov 7 15:54:06 PDT 1988
  16.  */
  17.  
  18. #include <stdio.h>
  19. #include <time.h>
  20. #include <sys/types.h>
  21.  
  22. #include <../src/config.h>
  23.  
  24. #ifdef USG
  25. #include <string.h>
  26. #else
  27. #include <strings.h>
  28. #endif
  29.  
  30. /* BSD's strings.h does not declare the type of strtok.  */
  31. extern char *strtok ();
  32.  
  33. #ifndef TRUE
  34. #define TRUE  (1)
  35. #endif
  36. #ifndef FALSE
  37. #define FALSE (0)
  38. #endif
  39.  
  40. int header = FALSE, printing;
  41. time_t ltoday;
  42. char from[256], labels[256], data[256], *p, *today;
  43.  
  44. main (argc, argv)
  45.      int argc;
  46.      char **argv;
  47. {
  48.   ltoday = time(0);
  49.   today = ctime(<oday);
  50.  
  51.   if (gets(data))
  52.     if (strcmp(data, "BABYL OPTIONS:")) {
  53.       fprintf(stderr, "b2m: not a Babyl mailfile!\n");
  54.       exit(-1);
  55.     } else
  56.       printing = FALSE;
  57.   else
  58.     exit(-1);
  59.   if (printing)
  60.     puts(data);
  61.  
  62.   while (gets(data)) {
  63.  
  64. #if 0
  65.     /* What was this for?  Does somebody have something against blank
  66.        lines?  */
  67.     if (!strcmp(data, ""))
  68.       exit(0);
  69. #endif
  70.  
  71.     if (!strcmp(data, "*** EOOH ***") && !printing) {
  72.       printing = header = TRUE;
  73.       printf("From b2m %s", today);
  74.       continue;
  75.     }
  76.     
  77.     if (!strcmp(data, " ")) {
  78.       /* save labels */
  79.       gets(data);
  80.       p = strtok(data, " ,\r\n\t");
  81.       strcpy(labels, "X-Babyl-Labels: ");
  82.  
  83.       while (p = strtok(NULL, " ,\r\n\t")) {
  84.     strcat(labels, p);
  85.     strcat(labels, ", ");
  86.       }
  87.  
  88.       labels[strlen(labels) - 2] = '\0';
  89.       printing = header = FALSE;
  90.       continue;
  91.     }
  92.  
  93.     if (!strlen(data) && header) {
  94.       header = FALSE;
  95.       if (strcmp(labels, "X-Babyl-Labels"))
  96.     puts(labels);
  97.     }
  98.     
  99.     if (printing)
  100.       puts(data);
  101.   }
  102. }
  103.